home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 2 / Deutsche Edition 2.iso / mac / PROGRAMME / Mandella 8.7 ƒ / Mandella / Mandella.rsrc / STR_177_Sierpinski.txt < prev    next >
Text File  |  1993-04-08  |  110b  |  6 lines
  1. newX := 2*x; newY := 2*y
  2. IF newY > 1.0 THEN 
  3.    newY := newY - 1
  4. ELSIF newX > 1.0 THEN
  5.    newX := newX - 1
  6. END